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SQL> cl scr 



SQL> DESC Emp 
Name 
Type 



Null? 



EMP NO 

NULL NUMBER (4) 
ENAME 

VARCHAR2 (10) 
JOB 

VARCHAR2 ( 9 ) 
MGR 

NUMBER (4) 
HIREDATE 

DATE 

SAL 

NUMBER (7, 2) 
COMM 

NUMBER (7, 2) 
DEPTNO 

NULL NUMBER (2) 



SQL> 

2 

3 

4 

5 

6 
7 



10 



DECLARE 

CURSOR EmpRefCursor 
IS SELECT Ename FROM 
V_Ename Emp . Ename%TYPE 
BEGIN ^ 

OPEN EmpRefCursor; 

LOOP 

FETCH EmpaSfCu jsfe INTO V_Ename; 

EXIT WHEN W^?¥^?Cursor%NOTFOUND ; 
DBMS_OUIPUT .##T_LINE ( ' Employee Number 





| | TO_CHAR (Empire ursor%ROWCOUNT, '09') I I 



11 

12 

13 

14 

Emplc 

Empl| 



END L 
CLOSE 
END 



Cr 



^Number 
Number 

S flffi ee Number 
ployee Number 
ployee Number 
mployee Number 
Employee Number 
Employee Number 




| | V_Ename) 



01 

02 

03 

04 

05 

06 

07 

08 
09 



KING 

BLAKE 

CLARK 

JONES 

MARTIN 

ALLEN 

TURNER 

JAMES 

WARD 



SkyEss Techno Solutions Pvt. Ltd. 

Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
Contact For Courses And Training in 

Oracle Developer Suite 10g(D2K), Oracle Apps R12, Live Projects in SQL and PL/SQL, Data 

Modeling, Linux/Unix 

Follow Me: https://www.facebook.com/satishkumar.yellanki 



Spool File For Oracle Students Trained by Mr.Sathish Yellanki 



10 


FORD 


11 


SMITH 


12 


SCOTT 


13 


ADAMS 


14 


MILLER 



Employee Number 
Employee Number 
Employee Number 
Employee Number 
Employee Number 



PL/SQL procedure successfully completed 
SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 TYPE EmpRefCursor 

3 IS REF CURSOR; 

4 V_EmpRef Cursor EmpRefCursor; 

5 V_Ename Emp . Ename%TYPE; 

6 BEGIN 

7 OPEN V_EmpRef Cursor 

8 FOR 

9 SELECT Ename FROM Emp; 

10 LOOP 

11 FETCH V_EmpRef Cursor INTO 

12 EXIT WHEN V_EmpRef Cursor%N 

1 3 DBMS_OUTPUT . PUT_LINE ( ' Employee 
' | ! TO_CHAR (V_EmpRe f Cursor %ROWCOUtj[Tff + }d0 9 ' ) 

14 END LOOP; ^ 

15 CLOSE V_EmpRef Cursor; ^ 

16* END; 




imber 

||' : '|| V_Ename ) ; 



SQL> / 

Employee 

Employee 

Employee 

Employee 

Employee 

Employee 

Employee 

Employee 

Employee 

Employe 

Emp locate 

Emp 1 lye 

flmCL^ee 



o 






Number 
Number 
Number 
Number 
Number 
Number *^6 



NuMrl 
umb^r 
mber 
ber 
iNumber 
Number 
Number 





5 

Wu/SQL procedure successfully completed. 



SQL> cl scr 
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SQL> ED 

Wrote file afiedt.buf 



10 

11 

80, 

12 

13 



DECLARE 

V_RowCount NUMBER (4); 

TYPE GenericCursor 
IS REF CURSOR; 

V_GenericCursor GenericCursor; 

V_EmpRecord Emp%ROWTYPE; 

BEGIN 

OPEN V_GenericCursor 
FOR 

SELECT * FROM Emp; % ^ 

DBMS_OUTPUT . PUT_LINE (RPAD (LPAD ( 'Employees InfomatiofH, 49, 

» f ^ J 







) , 



X 



% 



DBMS_OUTPUT.PUT_LINE (RPAD ( '- ' , 8 0,'-')); ^t, 

DBMS_OUTPUT . PUT_LINE (RPAD ( ' EmpNo ' , 8) | | RPAQ^^Kme ’ , 

12)| | RPAD ( 'Job' , 12)| | RPAD ( 'Deptno' , 8 ) | | RPAD (IM qy V~> 

10)| | RPAD ( 'Hiredate' , 12) | | RPAD (' Sal ' , 12) |^R#S\^omm' , 10)); 

14 DBMS_OUTPUT.PUT_LINE (RPAD ( '- ' , 80,'- 

1 5 LOOP jiJ* + -» 

1 6 FETCH V_GenericCursor INTO MDRjecord; 

17 EXIT WHEN V_GenericCur sorlWFOTmD ; 

18 V_RoWCount := V_GenericCursortROWCOUNT; 

19 DBMS_OUTPUT . PUT_LINE (RPAD (\^(Bteecord . Empno , 8) 

| | RPAD (V_EmpRecord . Ename, 12) | | RPAjj) (t^lEmpRecord . Job, 

12) | | RPAD ( V_EmpRecord . Deptnof,. %IWL (TO_CHAR (RPAD (V_EmpRecord . MGR, 

10)), ' No Manager ' ) | I RPAD ( y E n ro Sea^rd . Hiredate . 1 2 ) | | RPAD (V_EmpRecord . Sal , 
12)|| NVL (TO_CHAR (RPAD (V EiSfeS^d . Comm, 12) ) , ' -NA- ' ) ) ; 

2 0 END LOOP; -i+T " t t+ 

21 CLOSE V_GenericCu 

22 DBMS_OUTPUT.P^^LINEW_RowCount M ' Rows Processed So Far. . . ' ) ; 

23* END; +rr^± 

SQL> / 4 +4T 

■A’"A’Tk’T | rTk’T | r'A’'A’'A’'A’T | rTk’T | rT | r Tk’T | rT | r'A’'A’'A’'A’T | rT | r ~k J7 1 , O ^ 0 0 S 

j f o rmat i o ^ 



EmpNo+ + iUpfeije 
Comm j, + + 




Job 



Deptno Mgr 



Hiredate 



Sal 




PRESIDENT 10 
MANAGER 3 0 
MANAGER 1 0 



No Managerl7-NOV-81 5000 
7839 01 -MAY- 81 2850 
7839 09-JUN-81 2450 
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7566 


JONES 


MANAGER 


20 


-NA- 

7654 


MARTIN 


SALESMAN 


30 


1400 

7499 


ALLEN 


SALESMAN 


30 


300 

7844 


TURNER 


SALESMAN 


30 


0 

7900 


JAMES 


CLERK 


30 


-NA- 

7521 


WARD 


SALESMAN 


30 


500 

7902 


FORD 


ANALYST 


20 


-NA- 

7369 


SMITH 


CLERK 


20 


-NA- 

7788 


SCOTT 


ANALYST 


20 


-NA- 

7876 


ADAMS 


CLERK 


20 


-NA- 

7934 


MILLER 


CLERK 


10 


-NA- 
14 Rows 


Processed 


So Far . . . 





7839 



7698 



7698 



7698 



7698 



7698 



7566 



7902 



7566 



02 -APR- 81 



28-SEP-81 



2 O-FEB-8 1 



08-SEP-81 



2975 



1250 



03-DEC-81 



1600 t+j 






22-FEB- 



03-DE 






8! ^tl 



77 




i 17|^C-80 800 

E, , , +j 

EC-82 3000 







t2- JAN-83 



23- JAN-82 



1100 



1300 



PL/SQL procedure successfully 
SQL> cl scr 



SQL> ED 

Wrote file afiedt.buf 



1 DECLARE 

2 V_RowCount NUf 

2(30) := UPPER ( ' SGiveTable ' ) ; 

ursor 

5 13 

6 V_Genefli£clrsOT GenericCursor; 

7 V_EraDRe ccNm Emp%ROWTYPE; 

8 ^_DeptRecord Dept%ROWTYPE; 

9 V^cH<8?adeRecord SalGrade%ROWTYPE; 



3 V_T ypeTable 4 V AR' 

4 TYPE Gene 




10 IBEGSN 

V_TypeTable = 'EMP ' THEN 
l( IfePEN V_GenericCursor 



U3 FOR 



O 



'4 SELECT * FROM Emp; 

15 DBMS_OUTPUT.PUT_LINE (RPAD (LP AD ( 'Employees Information', 49, 
80, '*')); 

16 DBMS_OUTPUT.PUT_LINE (RPAD ( '- ' , 80,'-')); 



) , 



SkyEss Techno Solutions Pvt. Ltd. 

Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
Contact For Courses And Training in 

Oracle Developer Suite 10g(D2K), Oracle Apps R12, Live Projects in SQL and PL/SQL, Data 

Modeling, Linux/Unix 

Follow Me: https://www.facebook.com/satishkumar.yellanki 



Spool File For Oracle Students Trained by Mr.Sathish Yellanki 



17 DBMS_OUTPUT . PUT_LINE (RPAD ( ' EmpNo ' , 8)|| RPAD('Ename' 
12) | |RPAD ( ' Job' , 12)| | RPAD ( ' Deptno ' , 8 ) | | RPAD ( ' Mgr ' , 

10) | | RPAD ( ' Hiredate ' , 12 ) | | RPAD ( ' Sal ' , 12) | | RPAD ( 'Comm' , 



10 ) ) 



18 DBMS_OUTPUT.PUT_LINE (RPAD ( , 80,'-')); 

19 LOOP 

20 FETCH V_GenericCursor INTO V_EmpRecord; 

21 EXIT WHEN V_GenericCursor%NOTFOUND; 

22 V_RoWCount := V_GenericCursor%ROWCOUNT; 

23 DBMS_OUTPUT.PUT_LINE (RPAD (V_EmpRecord . Empno , 8) 

| | RPAD (V_EmpRecord . Ename, 12) | | RPAD (V_EmpRecord . Job, 

12) | | RPAD (V_EmpRecord. Deptno, 8) | | NVL (TO_CHAR (RPAD (V_EmpRi 
10)), 'No Manager') | | RPAD (V_EmpRecord. Hiredate, 12) | | RPA: 

12) | | NVL (TO_CHAR (RPAD (V_EmpRecord . Comm, 12)), ' -NA- ' ) ) 

24 END LOOP; 

25 CLOSE V_GenericCursor; 

26 DBMS_OUTPUT.PUT_LINE (V_RowCount M ' Rows Proce 

27 ELSE 

28 IF V_TypeTable = 'DEPT' THEN 

29 OPEN V_GenericCursor 
3 0 FOR 

31 SELECT * FROM Dept; 

32 DBMS_OUTPUT . PUT_LINE (RPAD (LPAD ( ' ferJ^tpent Information 

49, '*')); 

33 DBMS_OUTPUT.PUT_LINE (RPAD ( '- 

34 DBMS_OUTPUT . PUT_LINE (RPAD (1rf{t no ' , 8) | | 



ord. Sal, 



(LPAD ( ' 

('-', 40, V')); 




12) | | RPAD ( 'Loc' , 12) ) 



35 

36 

37 

38 

39 

40 



LINE (RF^D^i*^ 40, ' - ' ) ) 



RPAD ( ' Dname ' 



DBMS_OUTPUT . PUT 
L00P % 

FETCH V_GenericCurs^".:.IN^r V_DeptRecord; 
EXIT WHEN V_GeneridCjr^}r%NOTFOUND; 
V_RoWCount : 

DBMS OUTPUT. 



| | RPAD (V_DeptRecor 



41 

42 

43 

44 

45 

46 

47 

48 




jSp£Cursor%ROWCOUNT ; 

RPAD (V_DeptRecord. Deptno, 



i) 



12)| | RPAD ( V_DeptRecord . Dname, 12)) 



END LOOP; a 
CLOSE V Qer\ricCursor ; 

DBMS _^j^l^i^UT_LINE (V_RowCount | | 



Rows Processed So Far. 



Q 



vi° 



ELSE +f 1 - 1 

IE%f_TypeTable = 

+, 3 i-r OPEN V GenericCursor 

t f ' 



SAL GRADE ' THEN 



4-i-tiEOR 

SELECT * FROM SalGrade; 

DBMS_OUTPUT.PUT_LINE (RPAD (LPAD ( 'Salary Grade Information' 

') , 49, '*')); 

DBMS_OUTPUT . PUT_LINE (RPAD ( '-' , 40, '-' ) ) ; 

DBMS_OUTPUT.PUT_LINE (RPAD ( 'Grade' , 8)|| RPAD ( ' LoSal ' , 

2)|| RPAD ( ' HiSal ' , 12) ) ; 

52 DBMS_OUTPUT.PUT_LINE (RPAD ( '-' , 40,'-')); 

53 LOOP 
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54 

55 

56 

57 



FETCH V_GenericCursor INTO V_SalGradeRecord; 

EXIT WHEN V_GenericCursor%NOTFOUND ; 

V_RoWCount := V_GenericCursor%ROWCOUNT; 

DBMS_OUTPUT . PUT_LINE (RPAD (V_SalGradeRecord . Grade , 8 ) 



| | RPAD (V_SalGradeRecord . LoSal , 12) | | RPAD (V_SalGradeRecord . HiSal , 12)); 

58 END LOOP; 

59 CLOSE V_GenericCursor; 

60 DBMS_OUTPUT.PUT_LINE (V_RowCount M ' Rows Processed So 
Far ...'); 

61 ELSE 

62 DBMS_OUTPUT . PUT_LINE ( ' Sorry You Either Do Not 
Permissions on The Table OR The Requested Table Does Nota iSjyjfcSl? 

63 END IF; 

64 END IF; 

65 END IF; 

66* END; 

SQL> / 

Enter value for givetable: Emp 
^^i^****i^*^^*i*^^*i^*ii*^*^g m p ]_ 0 yees 



EmpNo 

Comm 



7839 

-NA- 

7698 

-NA- 

7782 

-NA- 

7566 

-NA- 

7654 

1400 

7499 

300 



Ename 




7844 4 - m^NER 



0 






1 1 



7900f iSAMES 

O rp54l> WARD 

702 FORD 

NA- 

7369 SMITH 

-NA- 
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7788 

-NA- 


SCOTT 


ANALYST 


20 


7566 


09-DEC-82 


7876 

-NA- 


ADAMS 


CLERK 


20 


7788 


12 -JAN- 83 


7934 

-NA- 


MILLER 


CLERK 


10 


7782 


23- JAN-82 



14 Rows Processed So Far. . . 

PL/SQL procedure successfully completed. 

SQL> / 

Enter value for givetable: Dept 

****** * Department Information* * ****************** 



Deptno Dname 



Loc 



10 

20 

30 

40 



ACCOUNTING ACCOUNTING 
RESEARCH RESEARCH 

SALES SALES 

OPERATIONS OPERATIONS 



4 Rows Processed So Far. . . 

PL/SQL procedure successfully compl e 




SQL> / 

Enter value for givetable : SalGjaaK 






**Salary Grade Informatiofti*lUfl*‘i r ^'* ************ 
Hi Sal A 



iV 



Grade LoSal HiSal +J 

_ 

1 700 1 -Vd 

2 1201 f l40( ^ p 

4 2001 A 3 mo 

5 3001 ^ \ 9999 

5 Rows Proafsia^'Sc Far. . . 

PL/SQL procedtNI successfully completed. 



SQL> ct+.S. 

.O 



Arft#' file af iedt . buf 



o 






i\ 



DECLARE 

2 V_RowCount NUMBER (4); 

3 TYPE GenericCursor 

4 IS REF CURSOR; 



SkyEss Techno Solutions Pvt. Ltd. 

Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
Contact For Courses And Training in 

Oracle Developer Suite 10g(D2K), Oracle Apps R12, Live Projects in SQL and PL/SQL, Data 

Modeling, Linux/Unix 

Follow Me: https://www.facebook.com/satishkumar.yellanki 



Spool File For Oracle Students Trained by Mr.Sathish Yellanki 



5 V_GenericCursor GenericCursor; 

6 TYPE TablesRecordType IS RECORD 

7 ( 

8 EmpRecord Emp%ROWTYPE 

9 ) ; 

10 V_EmpRecordType TablesRecordType; 

11 BEGIN 

12 DBMS_OUTPUT. ENABLE (10000 00) ; 

13 DBMS_OUTPUT . PUT_LINE (RPAD (LPAD ( 'Employees 
80, '*')); 

14 DBMS_OUTPUT.PUT_LINE (RPAD ( , 80,'-')); 

15 DBMS_OUTPUT . PUT_LINE (RPAD ( ' EmpNo ' , 8)|| RPAD ( ' Enama' 

12) | |RPAD ( ' Job' , 12)| | RPAD ( ' Deptno ' , 8 ) | | RPAD ( ' Mgr ' 

10) | | RPAD ( ' Hiredate ' , 12) | | RPAD ( ' Sal ' , 12) | | RPAD ( ' Connn ' 

DBMS_OUTPUT . PUT_LINE (RPAD ('-', 80,'-')) 

FOR Looplndex IN 



Information 



16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 



( 



Dname 



SELECT Deptno, 

FROM Dept 

) 

LOOP 

OPEN V_GenericCursor 
FOR 

SELECT * 

FROM Emp 
WHERE Deptno 
DBMS_OUTPUT . PUT_LINE ( 




w 

= Looplndex . 

Tim T T-KT-I-1 / I ■ 



29 



DBMS OUTPUT 



1 | ! Looplndex . Dname ) ; X 
30 DBMS OUTPUT. PU 



PUT_LINlptoa\^ Printing 



V 



The Employees of Department 



31 

32 

33 

34 

35 

36 







) 



) 



V_RoWCount 
LOOP , 

FETCH^y Generi r.Cnrsor INTO V_EmpRecordType . EmpRecord; 

V_GenericCursor%NOTFOUND ; 

ItfkcyComnt : = V_GenericCursor%ROWCOUNT; 

DeNCjOUTPUT . PUT_LINE (RPAD ( V_E mpRecordType . EmpRecord . Empno, 
| | RPAfii (\| JmpRecordType . EmpRecord . Ename, 

12) | [^P^if^vLEmpRecordType . EmpRecord . Job, 

►(V_EmpRecordType . EmpRecord. Deptno, 

[TO_CHAR (RPAD ( V_EmpRecordType . EmpRecord. MGR, 10)), 'No 
l M ajE; r * ) ! | RPAD (V_EmpRecordType . EmpRecord. Hiredate, 

; ) V | RPAD ( V_EmpRecordType . EmpRecord . Sal , 

| |NVL (TO_CHAR (RPAD (V_EmpRecordType . EmpRecord. Comm, 12)), ' -NA- ' ) ) ; 

37 END LOOP; 

38 CLOSE V_GenericCursor; 

39 DBMS_OUTPUT . PUT_LINE (V_RowCount | | ' Rows Processed So Far...'); 
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40 END LOOP; 

41* END; 

SQL> / 

mp loyccG 

J j_ Q 'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 



EmpNo 

Comm 



Ename 



Job 



Deptno Mgr 



Hiredate 



Sal 



0 



'£Sf‘ 

-W- 



Now Printing The Employees of Department 



ACCOUNTING 






k 



7839 
-NA- 
7782 
-NA- 
7934 
-NA- 

3 Rows Processed So Far. . . 



KING 

CLARK 

MILLER 



PRESIDENT 

MANAGER 

CLERK 



Now Printing The Employees o 



7566 
-NA- 
7902 
-NA- 
7369 
-NA- 
7788 
-NA- 
7876 
-NA- 
5 Ro 




No Manag^*^7%jIOV-8 1 5000 

7 8 3$ * J\S 9-JUN-81 2450 

23- JAN-82 1300 



7839 


02 -APR- 81 


2975 


7566 


03-DEC-81 


3000 


7902 


17-DEC-80 


800 


7566 


09-DEC-82 


3000 


7788 


12- JAN- 83 


1100 



wb I«3cessed So Far. . . 



' I I 



<3 




Nj 

V^98 
NA- 
7654 
1400 



hdt: 



Lting The 


Employees of 


Department 


: SALES 






BLAKE 


MANAGER 


30 


7839 


01 -MAY- 81 


2850 


MARTIN 


SALESMAN 


30 


7698 


28-SEP-81 


1250 
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7499 

300 


ALLEN 


SALESMAN 


30 


7698 


2 O-FEB-8 1 


7844 

0 

7900 

-NA- 


TURNER 


SALESMAN 


30 


7698 


08-SEP-81 


JAMES 


CLERK 


30 


7698 


03-DEC-81 


7521 

500 


WARD 


SALESMAN 


30 


7698 


22-FEB-81 



6 Rows Processed So Far. . . 



Now Printing The Employees of Department : OPERATIONS 



0 Rows Processed So Far. . . 

PL/SQL procedure successfully completed. 
SQL> cl scr 



SQL> ED 

Wrote file afiedt.buf 



1 DECLARE 

2 CURSOR EmpCursor 

3 IS 

SELECT Ename, Sal 
FROM Emp; 

TYPE EmpCursorTabl 




eType 

IS TABLE OF 7+ + % 

8 EmpCursor%ROWTYPEf^}+ + -t-d 

9 INDEX BY BINAj^r IN fef feR; 

10 V_EmpTableTypiV#mopursorTabl eType ; 

11 BEGIN i +4 T 

12 IF NOT Emuc\sor% ISOPEN 

13 THEN 

14 OPEN Er?$pu2sor*; 

15 ELSE + +F 

1 6 «BtM)UTPUT . PUT_LINE ( ' Cursor is Already Open Proceed With Result Set 



Lend if; 



Operatic] 

17 

|s8^>b£lare 

.J^l f f V_Table Index PLS_INTEGER := 0; 
+ u %\2 0^ BEGIN 



124. DBMS_OUTPUT.PUT_LINE ( 'Loading The Data From Context Area into PL/SQL 
T ables Please Wait ...'); 

22 LOOP 
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23 FETCH EmpCursor INTO V_EmpTableType (V_TableIndex) . Ename, 
V_EmpTableType (V_TableIndex) . Sal; 

24 EXIT WHEN EmpCursor%NOTFOUND OR EmpCursor%NOTFOUND IS NULL; 

25 V_TableIndex := V_TableIndex + 1; 

26 END LOOP; 

27 DBMS_OUTPUT.PUT_LINE ( 'Loading The Data into PL/SQL Tables is 
Successfully. . . ' ) ; 

28 END; 

29 BEGIN 

30 DBMS_OUTPUT . PUT_LINE ( ' Displaying The Data From The Pl/S^jL | '"L 

Table . . .Please Wait ...'); 4 

31 FOR IndexVariable IN V_EmpTableType . FIRST .. V_EmpTal^jt%e l . LAST 

32 LOOP \ Jf 

33 DBMS_OUTPUT . PUT_LINE (V_EmpTableType (IndexVariable) . E%|me | | ' is 

Fixed With A Salary of ' ! | V_EmpTableType ( IndexVariarfi^ ) . Sa 

34 END LOOP; 



w 






a, 



^S^^^sed Are 






V X 



£ 



1 1 xx 






35 DBMS_OUTPUT . PUT_LINE ( ' Displaying The Data FJ0k»e Pl/SQL Table Was 

Sucessfull . . . ' ) ; _ X. 

36 DBMS_OUTPUT . PUT_LINE ( ' The Total Records 
' | | V_EmpTableType . COUNT) ; 

37 END; 

38* END; 1 

SQL> / ^ t 

Loading The Data From Context Area into alL/SQL Tables Please Wait . . . 
Loading The Data into PL/SQL TaM^fet^ds Done Successfully... 

Displaying The Data From The PldsQi Fable . . .Please Wait. . . 

KING is Fixed With A Salary cif 
BLAKE is Fixed With A Salar y! , 0 ^. 2iS50 
CLARK is Fixed With A S al 4 5 0 
JONES is Fixed With A SaSCry'dpf 2 975 
MARTIN is Fixed With of 1250 

ALLEN is Fixed Wittt^A s£|ty of 1600 
TURNER is Fixed Wittr^jS alary of 1500 
JAMES is Fixed With A^alary of 950 
WARD is Fixed Ijjjdmi A Salary of 1250 
FORD is F i Salary of 3000 

SMITH is FiJ^n||ith > A Salary of 800 
SCOTT is 



ADAMSki 
MILLEP^ 




lxealWith A Salary of 3000 
xed With A Salary of 1100 
%^^^xed With A Salary of 1300 
Bg The Data From The Pl/SQL Table Was Sucessfull . . . 
1 Records Processed Are 14 



n jQL procedure successfully completed. 



QL> cl scr 



SQL> DECLARE 
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V_EmpTableType . ! 



2 TYPE EmpTableType 

3 IS TABLE OF 

4 Emp%ROWTYPE ; 

5 V_EmpTableType EmpTableType; 

6 BEGIN 

7 SELECT * INTO V_EmpTableType 

8 FROM Emp; 

9 FOR IndexVariable IN V_EmpTableType . FIRST 

10 LOOP 

11 DBMS_OUTPUT . PUT_LINE ( V_EmpTableType (IndexVariable) . Enaml 

Fixed With A Salary of ' | | V_EmpTableType (IndexVariable) 

12 END LOOP; 

13 END; 

14 / 

SELECT * INTO V_EmpTableType 
ERROR at line 7: 



ORA-06550 : 

PLS-00 642 : 

ORA- 06550 : 

PL/SQL: ORA- 00 947 
ORA-06550: line 7, column 1: 
PL/SQL: SQL Statement ignored 



SQL> 

2 

3 

4 

5 

6 
7 



DECLARE 

TYPE EmpTableType 
IS TABLE OF 
Emp%ROWTYPE ; 



+ X> 

V_EmpTableType EmpTa&leT.ypc 




line 7, column 15: 
local collection types not alio 
line 7, column 30: 

not enough values jau + + + 4 



statements 



pe; 



BEGIN tut 

SELECT * BULKi^OLLECT INTO V_EmpTableType 
FROM Emp; 

FOR TnripxVari abl^trf 



V_EmpTableType . LAST 



IndexVariabl^r IN V_EmpTableType .FIRST 

10 LOOP ^ \ 

11 DBMS_q^™^*? t RyT_LINE ( V_EmpTableType (IndexVariable) . Ename 

Fixed With JtjSaSar^ of ' | | V_EmpTableType (IndexVariable) . Sal ) 

12 END JjOOPrtr 

ll 

KING+is ,fe_xed With A Salary of 5000 
B^#jjiiE*+**5 Fixed With A Salary of 2 850 

LARyis Fixed With A Salary of 2450 

ES is Fixed With A Salary of 2975 

TIN is Fixed With A Salary of 1250 
LEN is Fixed With A Salary of 1600 
TURNER is Fixed With A Salary of 1500 
JAMES is Fixed With A Salary of 950 



I I 



is 
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WARD is Fixed With A Salary of 1250 
FORD is Fixed With A Salary of 3000 
SMITH is Fixed With A Salary of 800 

SCOTT is Fixed With A Salary of 3000 

ADAMS is Fixed With A Salary of 1100 

MILLER is Fixed With A Salary of 1300 

PL/SQL procedure successfully completed. 



SQL> 

2 

3 

4 

5 

6 
7 



10 

11 

12 

13 

14 

15 

16 
17 



DECLARE 

TYPE MyArray IS 
TABLE OF 
Emp%ROWTYPE ; 

VJMyArray MyArray; 

TYPE GenericCursor 
IS REF CURSOR; 

V_GenericCursor GenericCursor; 

BEGIN 

OPEN V_GenericCursor FOR 
SELECT * 

FROM Emp; 

FETCH V_GenericCursor BULK COLLECT 
CLOSE V_GenericCursor; 

FOR Looplndex IN 1 . . V_MyArray . Cou%t 
LOOP 

DBMS_OUTPUT . PUT_LINE ( TO CHaS (L c%p Index, 
Ename ) f r 




V_MyArray (Looplndex) 



_MyArray; 



09') II ') ' II 



18 

19 

20 
01 ) 
02 ) 

03) 

04) 

05) 

06) 

07) 

08) 

09) 

10 ) 
11 ) 



END LOOP; 
END; 

/ 

KING 
BLAKE 
CLARK 
JONES 
MARTIN 
ALLEN 
TURNER 
JAMES 
WARrfjr 

FQ^-C+f* 












r\ 











L/ SQL procedure successfully completed. 



SQL> cl scr 
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SQL> DECLARE 

2 V_Empno Emp . Empno%TYPE := &Empno; 

3 V_Ename Emp . Ename%TYPE ; 

4 V_Sal Emp . Sal%TYPE ; 

5 BEGIN 

6 SELECT Ename, Sal INTO V_Ename, V_Sal 

7 FROM Emp 

8 WHERE Empno = V_Empno; 

9 DBMS_OUTPUT . PUT_LINE ( ' Name : ' | | V_Ename | | ' Salary 

10 END; 

11 / 

Enter value for empno: 7839 
Name : KING Salary : 5000 

PL/SQL procedure successfully c 

SQL> / 

Enter value for empno: 7566 
Name : JONES Salary : 2975 

PL/SQL procedure successfully c 

SQL> / 




Enter value for empno: 77 8£ 
Name : SCOTT Salary : 3000 



PL/SQL procedure successful 



SQL> / 

Enter value for empno : 
DECLARE 






Leted. 



ERROR at line 1: 
ORA- 01403: no 
ORA- 06512 : 



SQL> 

Wrot 






at lit 



found 







f iedt . buf 



-rfjfyfiftECT Ename, Sal 
if T f frROM Emp 

lT. 3^ WHERE Empno = &V_Empno 
renter value for v_empno : 7 7 f 



0 



& 



X|p 



<3 




ENAME 



SAL 
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SCOTT 



3000 



SQL> / 

Enter value for v_empno : 2234 
no rows selected 
SQL> DECLARE 

2 V_Empno Emp . Empno%TYPE := &Empno; 

V_Ename Emp . Ename%TYPE; 

V_Sal Emp. Sal % TYPE; 

BEGIN 

SELECT Ename, Sal INTO V_Ename, V_Sal 
FROM Emp 

8 WHERE Empno = V_Empno; 

9 DBMS_OUTPUT . PUT_LINE ( ' Name 

10 END; 

11 / 

Enter value for empno: 2234 
DECLARE 

ERROR at line 1: 

ORA-01403: no data found 
ORA-06512: at line 6 



0* 



& 






9 



' I I V_Ename | S* ry 




: ' I | V_Sal) ; 







♦ 



-4 






SQL> DECLARE ■ , 

2 V_Empno Emp . Empno %T%^E'^ ) ='’ SEmpno; 



V_Ename Emp . EnameWYP^ 

w tut 




V_Sal Emp . Sal%X 
BEGIN 

SELECT EnamS^ 

FROM Emp 

8 WHERE EQ|pr^ = V_Empno; 

9 DBM^^fa^ik PUT_LINE ( ’ Name 

10 EXCEPTION 1 

11 WHENNO_$«TA_FOUND THEN 

12 «B^UTPUT . PUT_LINE ( ' Sorry, Data is Not Found. ' ) ; 

1 3 

14 



INTO V_Ename, V_Sal 

' | |V_Ename| | ' Salary : ' | |V_Sal) ; 






irWflu 



O' 



lue for empno: 2234 
ofrj» Data is Not Found. 

Vl f/SQL procedure successfully completed. 



SQL> ED 

Wrote file afiedt.buf 
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1 DECLARE 

2 V_Empno Emp . Empno%TYPE := &Empno; 

3 V_Ename Emp . Ename%TYPE ; 

4 V_Sal Emp . Sal % TYPE ; 

5 BEGIN 

6 SELECT Ename, Sal INTO V_Ename, V_Sal 

7 FROM Emp 

8 WHERE Empno = V_Empno; 

9 DBMS_OUTPUT . PUT_LINE ( ' Name : ' ] | V_Ename || ' Salary 

10 EXCEPTION 

11 WHEN OTHERS THEN A 

12 DBMS_OUTPUT.PUT_LINE ( 'Sorry, Data is Not Found.'); \ ^ f 

13* END; 

SQL> / 

Enter value for empno: 2234 
Sorry, Data is Not Found. 

PL/SQL procedure successfully completed. 



SQL> ED 

Wrote file afiedt.buf 

1 SELECT * 

2 FROM Emp 
3* WHERE Sal = &V_Sal 

SQL> / 

Enter value for v sal: 5000 




EMPNO ENAME 
COMM DEPTNO 



7839 KING 






gp~ - -- 



MGR HIREDATE 



SAL 



SIDENT 



17 -NOV- 81 



5000 



10 



SQL> / 

Enter value 



EMP 



<d. 



v sal: 3000 



INAME 



com m|^^ + -® EP TNO 



Cf 







7902 FORD 
7788 SCOTT 



JOB 


MGR 


HIREDATE 


SAL 


ANALYST 


7566 


03-DEC-81 


3000 


ANALYST 


7566 


09-DEC-82 


3000 



20 
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SQL> cl scr 
SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Emp Emp%ROWT YPE ; 

3 V_Sal Emp . Sal%TYPE := &Sal; 

4 BEGIN 

5 SELECT * INTO V_Emp 

6 FROM Emp 

7 WHERE Sal = V_Sal; 

8 DBMS_OUTPUT . PUT_LINE ( ' Name 
' | | V_Emp. Sal) ; 

9* END ; 

SQL> / 

Enter value for sal: 5000 
Name : KING Salary : 5000 



PL/SQL procedure successfully completed 



SQL> / 

Enter value for sal: 2850 
Name : BLAKE Salary : 2850 



0 * 



& 






| | V_Emp . Ename | | ' Sa^ary^^’ 







# 





I#*' 

ae 5 +rr 

i »> 

af^mt . buf 



PL/SQL procedure successfully 
SQL> / 

Enter value for sal: 300i 
DECLARE 

ERROR at line 1: m n ■ 

ORA- 01422 : exact f^ffVeturns more than requested number of rows 
ORA- 06512 : at lime 5 



SQL> ED 
Wrote fi 



: — & Sal m r 



1 

2 1 VNEmp Emp%ROWTYPE ; 

Ct +T#_Sal Emp . Sal%TYPE 

J C.ffeEG™ 

r+XA+ v \ 5 

4 \ FROM Emp 

7 WHERE Sal = V_Sal; 

8 DBMS_OUTPUT . PUT_LINE ( ' Name 
' | | V_Emp. Sal) ; 



O 



*3 SELECT * INTO V_Emp 



' I I V_Emp . Ename | | ' Salary 
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9 EXCEPTION 

10 WHEN T 0 0_MAN Y_RO W S THEN 

11 DBMS_OUTPUT . PUT_LINE ( ' More Than One Employee Having Same Salary'); 
12* END ; 

SQL> / 

Enter value for sal: 5000 
Name : KING Salary : 5000 



PL/SQL procedure successfully completed. 
SQL> / 

Enter value for sal: 2850 
Name : BLAKE Salary : 2850 

PL/SQL procedure successfully completed. 



c# 



& 






SQL> / 

Enter value for sal: 3000 
More Than One Employee Having Same Salary 







PL/SQL procedure successfully completed 



SQL> / 

Enter value for sal: 950 
Name : JAMES Salary : 950 

PL/SQL procedure successful! 








SQL> ED 

Wrote file afiedt.buf 




f r+ c^^^ted. 



1 DECLARE 

2 V_Emp Emp%R' 

3 V_Sal EmpASal 

4 BEGIN . \ 

5 SELE^*rj4^tfeo V_Emp 

6 FROMV^i 4 

7 WHERE M = V_Sal ; 



E : — & Sal i 






I 



OUTPUT. PUT_LINE ('Name : ' | | V_Emp . Ename || ' Salary : 

' I I VlMii* ) ; 

9 4 EXCEPTION 
rf^+riWHEN OTHERS THEN 

IT F DBMS_OUTPUT . PUT_LINE ( ' More Than One Employee Having Same Salary'); 



i+ u +, '\1Z ^ END 



Q 



,> / 



nter value for sal: 3000 
More Than One Employee Having Same Salary 
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' | | V_Emp . Ename | | ' Sa^ary^^’ 



PL/SQL procedure successfully completed. 

SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Emp Emp%ROWT YPE ; 

3 V_Sal Emp . Sal%TYPE := &Sal; 

4 BEGIN 

5 SELECT * INTO V_Emp 

6 FROM Emp 

7 WHERE Sal = V_Sal; 

8 DBMS_OUTPUT . PUT_LINE ( ' Name 
' | | V_Emp. Sal) ; 

9 EXCEPTION 

10 WHEN T 0 0_MAN Y_RO W S THEN 

11 DBMS_OUTPUT . PUT_LINE ( ' More Than One Emplo 

12* END ; , 

SQL> / 

Enter value for sal: 1250 
More Than One Employee Having Same Salar 

PL/SQL procedure successfully compl e 

SQL> / 

Enter value for sal: 2234 
DECLARE 

ERROR at line 1: 

ORA-01403: no data found 
ORA-06512: at line 5 



SQL> DECLARE . 

2 V_Emp EornmOWTYPE; 

3 V_Sa)f 4J %iipT-«ml%TYPE := &Sal; 

4 BEGIN Y] 4 

5 SELECT^y INTO V_Emp 

6 % E®1 Emp 

7 Sal = V_Sal; 

8 f D&MS_OUTPUT . PUT_LINE ( ' Name 
'.j'fytlfenf.Sal) ; 

f P EXCEPTION 



0 * 



& 



cY 






ng Same Salary'); 





I | V_Emp . Ename | | ' Salary 






\ 









1 (T^ WHEN NO_DATA_FOUND THEN 
Fl DBMS_OUTPUT . PUT_LINE ( ' Sorry, Data is Not Found.'); 

12 WHEN TOO_MAN Y_ROW S THEN 

13 DBMS_OUTPUT . PUT_LINE ( ' More Than One Employee Having Same Salary'); 

14 END ; 
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15 / 



Enter value for sal: 3000 

More Than One Employee Having Same Salary 
PL/SQL procedure successfully completed. 
SQL> / 

Enter value for sal: 2234 
Sorry, Data is Not Found. 

PL/SQL procedure successfully completed. 

SQL> ED 

Wrote file afiedt.buf 




1 DECLARE 

2 V_Emp Emp%ROWTYPE ; 

3 V_Sal Emp . Sal%TYPE := &Sal; 

4 BEGIN 

5 SELECT * INTO V_Emp 

6 FROM Emp 

7 WHERE Sal = V_Sal; 

8 DBMS_OUTPUT . PUT_LINE ( ' Name : 
' I | V_Emp . Sal ) ; 




10 

11 

12 

13 

14 

15 
16* 

SQL> 



c\ 



EXCEPTION \ 

WHEN NO_DATA_FOUND THEN 
DBMS_OUTPUT . PUT_LINE ( ' Spi^yjtfj'frata 
WHEN TOO_MAN Y_ROW S THEM tT 



is Not Found . ' ) 



DBMS_OUTPUT . PUT_LIN^ImV^ Than One Employee Having Same Salary' ) ; 

~ 



WHEN OTHERS THEN 
DBMS 
END ; 
cl scr 



\ 



l\ 

V_En^r\,^?^CHAR2 (4) := 1 

V_E nlil^mRCH AR2 (20) : = 

eptrSr VARCHAR2 (2) : = 



Handled Abnormality Identified') 



DECLARE 



V 



mm 




&Empno ' ; 

' & Ename ' ; 
' &Deptno ' 



IT INTO Emp(Empno, Ename, Deptno) 
ILUES (V_Empno, V_Ename, V_Deptno) ; 



cs 



9 -/' 

|\nter value 
Winter value 
nter value 



for 

for 

for 



empno : 
ename : 
deptno : 



7935 

SURESH 

30 



PL/SQL procedure successfully completed. 
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SQL> / 

Enter value for empno : 793A 
Enter value for ename : RAVI 
Enter value for deptno : 30 
DECLARE 

ERROR at line 1: 

ORA-01722: invalid number 
ORA-06512: at line 6 



SQL> ED 

Wrote file afiedt.buf 



& Empno ' ; 

' & Ename ' 

' SDeptno 




DECLARE 

V_Empno VARCHAR2 ( 4 ) : = 

V_Ename VARCHAR2 (20) r 
V_Deptno VARCHAR2 ( 2 ) r 
BEGIN 

INSERT INTO Emp (Empno, Ename, Dept 
VALUES (V_Empno, V_Ename, V_Deptl 

8 EXCEPTION 

9 WHEN INVALID_NUMBER THEN 

1 0 DBMS_OUTPUT . PUT_LINE ( ' Giver\3f!^LLoyee Number or Department Number is 
Invalid ' ) ; 

11* END ; 

SQL> / 

Enter value for empno: 

Enter value for ename: 

Enter value for deptr 



PL/SQL procedure s 




ully completed. 



SQL> / 

Enter valuej^Jt^Mpno : 793A 
Enter value^r^enine : RAJU 
Enter value for dept no : 30 

Given%^i*3ovee Number or Department Number is Invalid 
PL/S®L procedure successfully completed. 



o 




^Q]|> ROLLBACK; 



lback complete. 



SQL> DECLARE 

2 V_Numl NUMBER; 
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3 BEGIN 

4 V_Numl := ' SGiveNumberl ' + ' &GiveNumber2 ' ; 

5 DBMS_OUTPUT . PUT_LINE ('The Result of the Operation is: ' || 
V_Numl ) ; 

6 EXCEPTION 

7 WHEN INVALID_NUMBER THEN 

8 DBMS_OUTPUT . PUT_LINE ('Please Check - There is a Source 
Invalid Values in your input (OR) Operations.'); 

9 END ; 

10 / 

Enter value for givenumberl : 2234 
Enter value for givenumber2 : 3345 
The Result of the Operation is: 557 

PL/SQL procedure successfully completed. 



SQL> / 

Enter value for givenumberl: 223A 
Enter value for givenumber2 : 3345 
DECLARE 

ERROR at line 1: 

ORA-06502: PL/SQL: numeric or value 
error 

ORA-06512: at line 4 




haracter to number conversion 



Cl 



SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Numl NUMB! 

3 BEGIN 

4 V_Numl : = * ' &Gi^Aumber 1 ' + ' &GiveNumber2 ' ; 

5 DBMS_OU 1 JPW .PUT_LINE ( ' The Result of the Operation is : ' || 
V_Numl ) ; 

6 EXCEPTION 1 4 

7 WHEN wNUE_ERROR THEN 

8 + fp|S_OUTPUT.PUT_LINE ( 'Please Check - There is a Source of 
Inva^otjJ^Mrces in your input (OR) Operations.'); 

9*| EN^; 

>£nl fey value for givenumberl: 223A 
/Viter value for givenumber2 : 3345 

yrease Check - There is a Source of Invalid Values in your input (OR) 
perations . 



PL/SQL procedure successfully completed. 
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SQL> cl scr 
SQL> ROLLBACK; 
Rollback complete. 
SQL> cl scr 



SQL> DECLARE 

2 V_Empno Emp . Empno%TYPE := SEmpno; 

V_Ename Emp . Ename%TYPE := 1 SEname 1 ; 
V_Deptno Emp . Deptno%TYPE := &Deptno; 

BEGIN 

INSERT INTO Emp (Empno, Ename, Deptno) 

VALUES (V_Empno, V_Ename, V_Deptno) ; 
DBMS_OUTPUT . PUT_LINE ( 'Employee Successful! 
EXCEPTION 

WHEN DUP_VAL_ON_INDEX THEN 

DBMS_OUTPUT . PUT_LINE ( ' Employee II 



10 

11 



12 END ; 

13 / 

Enter value for empno: 7935 
Enter value for ename: RAVI 
Enter value for deptno: 30 \ 4 X *'+ 

Employee Successfully Inserted ^ \ " 





srted ' ) ; 



Exists ' ) ; 



PL/SQL procedure successf j^lLj^ 



Wjragl- 



eted. 



SQL> / 






Enter value for empno : 4t-C* 

Enter value for enxne : BaM j 
E nter value for depWrolTo 
Employee ID Already E*(csts 

PL/SQL proc "^Successfully completed . 




SQL> ROLLBACK, 5 

V f>j 

Rollb^ik re^tplete . 



scr 



C? 



SCL> ED 

Wrote file af iedt . buf 



1 DECLARE 

2 V_Ename Emp.Ename% TYPE; 
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3 V_Sal Emp . Sal%TYPE ; 

4 V_RowCount PLS_INTEGER := 0; 

5 CURSOR EmpRowCount IS 

6 SELECT Ename, Sal 

7 FROM Emp 

8 ORDER BY Ename; 

9 BEGIN 
OPEN EMPROWCOUNT; 

LOOP 

FETCH EmpRowCount INTO V_Ename, V_Sal; 

EXIT WHEN EmpRowCount%NOTFOUND ; 

V_RoWCount := EmpRoWCount %ROWCOUNT ; 

DBMS_OUTPUT . PUT_LINE ( ' Employee Name is, ' | I V_Ename |\ Salary 

is 'll V_Sal) ; 

END LOOP; 

OPEN EMPROWCOUNT; 



DBMS_OUTPUT . PUT_LINE (V_RowCount M ' Rows Prq*%s4 




Cl 



10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 CLOSE EmpRowCount; 

21 EXCEPTION 

22 WHEN CURSOR_ALREADY_OPEN THEN 

23 DBMS_OUTPUT . PUT_LINE ( ' The Requested 
24* END; 

SQL> / 

Employee Name is, ADAMS his Salary 
is 1100 

Employee Name is, ALLEN his S 
is 1600 

Employee Name is, BLAKE hi 
is 2850 -r 

Employee Name is, CLARK h% S^Lary 
is 2450 -rtf , + J-C t 

Employee Name is,Fjpj5 hisJSalary 
is 3000 

Employee Name is*JAME^^his Salary 
is 950 + r \ 

Employee N a#ie s JifONE S his Salary 
is 2 97 5 ^ 

Employee Ja me^lft, KING his Salary 
is 50% 

Empl e is, MARTIN his Salary 

is 1^5 0 , + 4 

E^lf^^fcwe Name is, MILLER his Salary 

p^yee Name is, SCOTT his Salary 
3000 

.mployee Name is, SMITH his Salary 
is 800 

Employee Name is, TURNER his Salary 









\C 

b^sSd 



r ms 



So Far 









y 

is already Open.'); 



s Salary 

Cl# 
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is 1500 

Employee Name is, WARD his Salary 
is 1250 

The Requested Cursor is already Open. 

PL/SQL procedure successfully completed. 

SQL> cl scr 
SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Ename Emp.Ename% TYPE; 

3 V_Sal Emp . Sal%TYPE ; 

4 V_RowCount PLS_INTEGER := 0; 

5 CURSOR EmpRowCount IS 

6 SELECT Ename, Sal 

7 FROM Emp 

8 ORDER BY Ename; 

9 BEGIN 

10 OPEN EMPROWCOUNT; 

11 LOOP 

12 FETCH EmpRowCount INTO V_Ename, Vji 

13 EXIT WHEN EmpRowCount %NOTE ^^j 

14 V_RoWCount := EmpRoWCount^h5KC%INT ; 

15 DBMS_OUTPUT . PUT_LINE ( ' Name is, ' | | V_Ename | | ' his Salary 

16 is ' I I V_Sal ) ; .. 

17 END LOOP; „ 

18 DBMS_OUTPUT . PUT_LlisrC(^^owCount M ' Rows Processed So Far. 

19 CLOSE EmpRowCounf^^J-d 

2 2 WHEN INVALIQ_CUr3i THEN 

UT_LINE('The Requested Cursor is either not open or is 











ci 



23 DBMS_OUTP 
already cl 
24* END; 

SQ L> / ^ 

Emp 1 o«e efjlme is, ADAMS his Salary 

is l^& + 'N-rtJ' 

Empl(iyee%Name is , ALLEN his Salary 

S j flj free Name is, BLAKE his Salary 
Z850 

ployee Name is, CLARK his Salary 
’ s 2450 

Employee Name is, FORD his Salary 
is 3000 
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Employee Name is, JAMES his Salary 
is 950 

Employee Name is, JONES his Salary 
is 2975 

Employee Name is, KING his Salary 
is 5000 

Employee Name is, MARTIN his Salary 
is 1250 

Employee Name is, MILLER his Salary 
is 1300 

Employee Name is, SCOTT his Salary 
is 3000 

Employee Name is, SMITH his Salary 
is 800 

Employee Name is, TURNER his Salary 
is 1500 

Employee Name is, WARD his Salary 
is 1250 

14 Rows Processed So Far. . . 

The Requested Cursor is either not open o: 

4 

PL/SQL procedure successfully complete! . +£* r> 

€\ 




;ady closed. 



SQL> cl scr 









SQL> DECLARE 

2 V_Grade CHAR := UPPSR §i#&riTler Grade ' ) ; 

3 BEGIN ^ j + + + +T 

4 CASE V Grade ^ 






% 



5 WHEN 'A' THEN DB^^^TPUT . PUT_LINE ( ' You are Awarded with 



Excellent Grade ' ) ; 

6 WHEN ' B ' Ti^N D ^y OUTPUT . PUT LINE (' You are Awarded with Very 
Good Grade'); 

7 WHEN ' C ' THEN«^BMS_OUTPUT . PUT_LINE ( ' You are Awarded with Good 

Grade ' ) ; ^ \ 

8 WHE^lftJ^-TOEN DBMS_OUTPUT . PUT_LINE ( ' You are Awarded with Fair 
Grade ' ) ; + fj * 

9 jffiEN THEN DBMS_OUTPUT . PUT_LINE ( ' You are Awarded with Poor 

Graded) 

10 El^^ytBE; 

11 Cexctption 

O rf}4.Wi*N CASE_NOT_FOUND THEN 

^il|bBMS_OUTPUT.PUT_LINE ( 'The Supplied Case ' I I V_Grade | | ' not found. 
Jlease Check once again.'); 
r4 END ; 

15 / 

Enter value for entergrade: J 

The Supplied Case J not found. Please Check once again. 
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PL/SQL procedure successfully completed. 

SQL> DECLARE 

2 V_Numl NUMBER := SGiveNumberl ; 

3 V_Num2 NUMBER := &GiveNumber2 ; 

4 V_Result NUMBER; 

5 BEGIN 

6 V_Result := V_Numl /V_Num2 ; 

7 DBMS_OUTPUT . PUT_LINE ('The Result is: 

8 EXCEPTION 

9 WHEN ZERO_DIVIDE THEN J %+**' 

10 DBMS_OUTPUT . PUT_LINE ( 'Fatal Error - Division bV ze^/ 

occurred' ) ; ♦ 

11 END ; ' ^ 

12 / 

Enter value for givenumberl : 25 
Enter value for givenumber2 : 4 

The Result is: 6.25 



I ! V_Result 









A 



PL/SQL procedure successfully completed 



SQL> / 

Enter value for givenumberl: 25 
Enter value for givenumber2 : 0 + + 4 4+ i- L 

«irrfe 








Fatal Error - Division by zero ac\r 
PL/SQL procedure success 



SQL> SPOOL OFF 







d 



eted. 









) 



o 



& 



c 
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